home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / twm-listing 6 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  283b  |  18 lines
  1. 10 SYS 32168
  2. 20 :
  3. 30 DIM D$(30)
  4. 40 FOR I=1 TO 30
  5. 50 D$(I)="MENUEPUNKT"+STR$(I) :PRINT SPC(13);D$(I);
  6. 60 NEXT I
  7. 70 :
  8. 80 (null)1,4,15,20,35,1,0,"MENU-DEMO"
  9. 90 (null)1,6,128
  10. 100 (null)1
  11. 110 :
  12. 120 M=20
  13. 130 (null) D$(1),D$(30),0,128,12,1,M
  14. 140 (null)
  15. 150 :
  16. 160 IF M=0 THEN (null) 12,1,"AUSSTIEG" :END
  17. 170 (null) 12,1,"GEWAEHLT: "+D$(M)
  18.